home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 4.st / REZRENDR.ARC / REZRENDR.CTL < prev    next >
Encoding:
Text File  |  1989-08-22  |  1.8 KB  |  38 lines
  1. ;RezRender/Cyber Control Demonstration Program by Andrew Reese
  2. ;Copyright 1989 Antic Publishing, Inc.
  3. ;This program demonstrates techniques to generate an animation within
  4. ;CAD-3D under Cyber Control and then do the finish rendering in
  5. ;RezRender.  You must have CAD-3D 2.02 or later to use these techniques.
  6. ;Make sure that you have watch buffers on...
  7. new:;                                      Clear the System
  8. ;                                          Credits and Copyrights
  9. alert "RezRender/Cyber Control Demo|Copyright 1989 Antic Publishing, Inc."
  10.  
  11. cam1 0,0,0:perspec 500:zoom 200:;          Set the camera
  12. bell:clrbgnd:backgnd no,no:view wire:draft:mono:watch on:;View parameters
  13. SPH2 ball,14:;                             Generate a Type 2 sphere
  14. xpos=-2000:ypos=-2000:zpos=-2000:;         Set the starting location
  15. moveto xpos,ypos,zpos:;                    Move sphere to location
  16. ;                                          ***MAIN LOOP***
  17. for f=1 to 15
  18. group a:superview:bell
  19. if f=1 then savegrp "A:\BALL1.3D2":;       Change the path in each of the 
  20. if f=2 then savegrp "A:\BALL2.3D2":;       following lines for your chosen
  21. if f=3 then savegrp "A:\BALL3.3D2":;       path.
  22. if f=4 then savegrp "A:\BALL4.3D2"
  23. if f=5 then savegrp "A:\BALL5.3D2"
  24. if f=6 then savegrp "A:\BALL6.3D2"
  25. if f=7 then savegrp "A:\BALL7.3D2"
  26. if f=8 then savegrp "A:\BALL8.3D2"
  27. if f=9 then savegrp "A:\BALL9.3D2"
  28. if f=10 then savegrp "A:\BALL10.3D2"
  29. if f=11 then savegrp "A:\BALL11.3D2"
  30. if f=12 then savegrp "A:\BALL12.3D2"
  31. if f=13 then savegrp "A:\BALL13.3D2"
  32. if f=14 then savegrp "A:\BALL14.3D2"
  33. if f=15 then savegrp "A:\BALL15.3D2"
  34. ;                                          ***MOVE THE SPHERE***
  35. xpos=xpos+200:ypos=ypos+200:zpos=zpos+200:moveto xpos,ypos,zpos
  36. next f
  37. end
  38.